﻿Imports Microsoft.WindowsAPICodePack.Taskbar
Public Class frmPlayer
    Private WithEvents ApacheStart, ApacheStop, MySQLStart, MySQLStop As ThumbnailToolbarButton

    Dim clsAudio As New Audio
    Private Sub btnVolDown_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnVolDown.Click
        clsAudio.VolumeDown(10)
    End Sub


    Private Sub btnVolUP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnVolUP.Click
        clsAudio.VolumeUP(10)
    End Sub

    Private Sub btnButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnButton1.Click
        Try
            Dim StopIcon, StartIcon As System.Drawing.Icon
            StopIcon = My.Resources.Resource1.shell32_240
            StartIcon = My.Resources.Resource1.shell32_246

            ApacheStart = New ThumbnailToolbarButton(StartIcon, "Start Apache")
            ApacheStop = New ThumbnailToolbarButton(StopIcon, "Stop Apache")
            MySQLStart = New ThumbnailToolbarButton(StartIcon, "Start MySQL")
            MySQLStop = New ThumbnailToolbarButton(StopIcon, "Stop MySQL")
            Dim array1() As Microsoft.WindowsAPICodePack.Taskbar.ThumbnailToolbarButton = {ApacheStart, ApacheStop, MySQLStart, MySQLStop}
            'Dim hd As IntPtr = 68012
            TaskbarManager.Instance.ThumbnailToolbars.AddButtons(Val(txtTextBox1.Text), array1)
            'MessageBox.Show(Handle)
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub
End Class